00100		REAL I,II,III,IV
00200		DIMENSION NM(4,18),I(18),II(12,18),III(18),IV(3,18)
00300		1,GRADE(18),XI(18),XII(18),XIII(18),XIV(18)
00400		DATA NM/
00500		1'ASH,REUEL           ','COHEN,ANDY          ',
00600		1'DAMON,RICHARD       ','DYRUD,BETH          ',
00700		1'GAVER,ELIZ.         ','GRANT,SUSAN         ',
00800		1'HALBERT,ALLAN       ','LEE,VIVIANNE        ',
00900		1'MILLER,ROBERT       ','OSBORNE,KIM         ',
01000		1'PERLOFF,NANCY       ','RAIN,BARBARA        ',
01010		1'SAWHILL,BRUCE       ','SETRAKIAN,MARY      ',
01210		1'SIMS,JANET          ','TOGASHI,SANDRA      ',
01300		1'WASSERMAN,NATALIE   ','WEISZ,MARGIE        '/
01400		CALL IFILE(1,'GRDS')
01500	30	FORMAT(' TYPE NAME  '$)
01600	C32	TYPE 30
01700	32	READ(1,44)K
01800	C	ACCEPT 44,K
01900		IF(K.EQ.'X')GO TO 33
02000		DO 31 N=1,18
02100	31	IF(K.EQ.NM(1,N))GO TO 1
02200		GO TO 32
02300	1	TYPE 2,(NM(K,N),K=1,4)
02400	2	FORMAT(1X,4A5)
02500	44	FORMAT(A5)
02600	3	FORMAT(' QUESTION 1'/)
02700	6	FORMAT(' QUESTION 2'/)
02800	C	TYPE 3
02900		READ(1,4)RI
03000	C	ACCEPT 4,RI
03100		I(N)=RI
03200		RI=RI/22*15
03300		XI(N)=RI
03400	C5	TYPE 6
03500		READ(1,4)(II(K,N),K=1,12)
03600	C	ACCEPT 4,(II(K,N),K=1,12)
03700		RII=0
03800		DO 7  K=1,12
03900		IF(II(K,N).NE.0)GO TO 7
04000		TYPE 8
04100	C	GO TO 5
04200	8	FORMAT(' **** MISSING INPUT ****'/)
04300	7	RII=RII+II(K,N)
04400		RII=RII/120*25
04500		XII(N)=RII
04600	C	TYPE 9
04700	9	FORMAT(' QUESTION 3'/)
04800	4	FORMAT(20F)
04900		READ(1,4)RIII   
05000	C	ACCEPT 4,RIII   
05100		III(N)=RIII
05200		RIII=RIII*3
05300		XIII(N)=RIII
05400	C11	TYPE 10
05500	10	FORMAT(' QUESTION 4'/)
05600		READ(1,4)(IV(K,N),K=1,3)
05700	C	ACCEPT 4,(IV(K,N),K=1,3)
05800		RIV=0
05900		DO 12 K=1,3 
06000		IF(IV(K,N).NE.0)GO TO 12
06100		TYPE 8
06200	C	GO TO 11
06300	12	RIV=RIV+IV(K,N)
06400		XIV(N)=RIV
06500		GRADE(N)=RI+RII+RIII+RIV
06600		GO TO 32
06700	
06800	22	FORMAT(' GRADE=',F5.2,/' I=',F5.2,'   II=',F5.2,λα@
06900		1'   III=',F5.2,'   IV=',F5.2/)
07000	33	CALL OFILE(1,'GRADE')
07100		R=0
07200		DO 25 K=1,18
07300	25	R=R+GRADE(K)
07400		R=R/18
07500		TYPE 24,R
07600		WRITE(1,24)R
07700	24	FORMAT(/' AVERAGE=',F5.2/)
07800		DO 23 K=1,18
07900		TYPE 2,(NM(N,K),N=1,4)
08000		WRITE(1,2),(NM(N,K),N=1,4)
08100		TYPE 22,GRADE(K),XI(K),XII(K),XIII(K),XIV(K)
08200		WRITE(1,22)GRADE(K),XI(K),XII(K),XIII(K),XIV(K)
08300		WRITE(1,27)I(K),(II(N,K),N=1,12),III(K),(IV(N,K),N=1,3)
08400	23	CONTINUE
08500	27	FORMAT(F7.2,/12F7.2,/F7.2,/3F7.2//)
08600		END